COMMENT ⊗   VALID 00006 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	|BATCH:?\\\PRINT.\Submit the nightly batch job.  Must be logged in as [HST,NET].\
C00003 00003	|MERGE:?\\\PRINT.\Merge HOSTS.TXT and PUPHST.TXT into HOSTS3.BIN.\
C00005 00004	|XXX OLD VERSION PUPHST:?\\\PRINT.\Make new PUPHST.TXT and compare with old.\
C00006 00005	|HOSTS:?\\\PRINT.\Copy new HOSTS.TXT version and compare with old.\
C00007 00006	|PUPHST:?\\\PRINT.\Copy new PUPHST.TXT version and compare with old.\
C00008 ENDMK
C⊗;
|BATCH:?\\\PRINT.\Submit the nightly batch job.  Must be logged in as [HST,NET].\

batch/do/time=0300*/tlimit=5/count=∞ @update.ctl[hst,net]↔
|
|MERGE:?\\\PRINT.\Merge HOSTS.TXT and PUPHST.TXT into HOSTS3.BIN.\
run hosts3;insert merge.txt↔
|
|XXX OLD VERSION PUPHST:?\\\PRINT.\Make new PUPHST.TXT and compare with old.\
ren/q puphst.old←puphst.txt↔
ru puphst↔
r srccom↔
tty:←puphst.old,puphst.txt↔λ
|
|HOSTS:?\\\PRINT.\Copy new HOSTS.TXT version and compare with old.\
\NEWLINE.
\PRINT.\Old HOSTS.TXT version: \?h
\PRINT.\New HOSTS.TXT version: \?H
\FLUSH.

COPY HOSTS.?H←HOSTS.TXT↔
R SRCCOM↔
HOSTS.DIF/E/O←HOSTS.?h,HOSTS.?H↔
λMAIL/subj #HSTDIF.MSG[HST,NET] @HOSTS.DIF↔
DELETE/q HOSTS.DIF↔
ER HSTDIF.MSG/E/L
|
|PUPHST:?\\\PRINT.\Copy new PUPHST.TXT version and compare with old.\
\NEWLINE.
\PRINT.\Old PUPHST.TXT version: \?p
\PRINT.\New PUPHST.TXT version: \?P
\FLUSH.

COPY PUPHST.?P←PUPHST.TXT↔
R SRCCOM↔
PUPHST.DIF/E/O←PUPHST.?p,PUPHST.?P↔
λMAIL/subj #PUPDIF.MSG[HST,NET] @PUPHST.DIF↔
DELETE/q PUPHST.DIF↔
ER PUPDIF.MSG/E/L
|